home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / ForInNext.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  640 b   |  32 lines
  1. ;Using an Array
  2. Dim $aArray[4]
  3.  
  4. $aArray[0]="a"
  5. $aArray[1]=0
  6. $aArray[2]=1.3434
  7. $aArray[3]="test"
  8.  
  9. $string = ""
  10. FOR $element IN $aArray
  11.     $string = $string & $element & @CRLF
  12. NEXT
  13.  
  14. Msgbox(0,"For..IN Arraytest","Result is: " & @CRLF & $string)
  15.  
  16. ;Using an Object Collection
  17.  
  18. $oShell = ObjCreate("shell.application")
  19. $oShellWindows=$oShell.windows
  20.  
  21. if Isobj($oShellWindows) then
  22.   $string=""
  23.  
  24.   for $Window in $oShellWindows
  25.     $String = $String & $Window.LocationName & @CRLF
  26.   next
  27.  
  28.   msgbox(0,"","You have the following windows open:" & @CRLF & $String)
  29. else
  30.  
  31.   msgbox(0,"","you have no open shell windows.")
  32. endif